/* Copyright (c) 2016 PaddlePaddle Authors. All Rights Reserved.

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

    http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License. */

#include "paddle/phi/kernels/funcs/math_function.h"
#include "paddle/phi/core/utils/visit_place.h"

#ifdef PADDLE_WITH_MKLML
#include "paddle/phi/backends/dynload/mklml.h"
#endif

#ifdef PADDLE_USE_OPENBLAS
#include <cblas.h>
#elif PADDLE_USE_ACCELERATE
#include <Accelerate/Accelerate.h>
#endif

#include <memory>
#include <utility>
#include <vector>

#include "paddle/phi/backends/context_pool.h"

#ifdef PADDLE_WITH_XPU
#include "paddle/phi/backends/xpu/xpu_context.h"
#endif

#include "paddle/phi/backends/cpu/cpu_context.h"
#include "paddle/phi/common/data_type.h"
#include "paddle/phi/kernels/funcs/eigen/common.h"
#include "paddle/phi/kernels/funcs/math_function_impl.h"
#include "unsupported/Eigen/CXX11/Tensor"
#ifdef PADDLE_WITH_CUSTOM_DEVICE
#include "paddle/phi/api/lib/kernel_dispatch.h"
#include "paddle/phi/core/kernel_factory.h"
#endif

namespace phi::funcs {

using float16 = phi::float16;

template struct SetConstant<phi::CPUContext, phi::float8_e4m3fn>;
template struct SetConstant<phi::CPUContext, phi::float8_e5m2>;
template struct SetConstant<phi::CPUContext, phi::float16>;
template struct SetConstant<phi::CPUContext, phi::bfloat16>;
template struct SetConstant<phi::CPUContext, float>;
template struct SetConstant<phi::CPUContext, double>;
template struct SetConstant<phi::CPUContext, int16_t>;
template struct SetConstant<phi::CPUContext, int>;
template struct SetConstant<phi::CPUContext, int64_t>;
template struct SetConstant<phi::CPUContext, bool>;
template struct SetConstant<phi::CPUContext, uint8_t>;
template struct SetConstant<phi::CPUContext, uint16_t>;
template struct SetConstant<phi::CPUContext, uint32_t>;
template struct SetConstant<phi::CPUContext, uint64_t>;
template struct SetConstant<phi::CPUContext, int8_t>;
template struct SetConstant<phi::CPUContext, phi::complex64>;
template struct SetConstant<phi::CPUContext, phi::complex128>;

#ifdef PADDLE_WITH_XPU
template struct SetConstant<phi::XPUContext, phi::float16>;
template struct SetConstant<phi::XPUContext, phi::bfloat16>;
template struct SetConstant<phi::XPUContext, float>;
template struct SetConstant<phi::XPUContext, double>;
template struct SetConstant<phi::XPUContext, uint8_t>;
template struct SetConstant<phi::XPUContext, int8_t>;
template struct SetConstant<phi::XPUContext, int16_t>;
template struct SetConstant<phi::XPUContext, int>;
template struct SetConstant<phi::XPUContext, int64_t>;
template struct SetConstant<phi::XPUContext, bool>;
template struct SetConstant<phi::XPUContext, phi::complex64>;
template struct SetConstant<phi::XPUContext, phi::complex128>;
#endif  // PADDLE_WITH_XPU

#define DEFINE_CPU_TRANS(RANK)                                                 \
  template struct PADDLE_API Transpose<phi::CPUContext, phi::float16, RANK>;   \
  template struct PADDLE_API Transpose<phi::CPUContext, phi::bfloat16, RANK>;  \
  template struct PADDLE_API                                                   \
      Transpose<phi::CPUContext, phi::float8_e4m3fn, RANK>;                    \
  template struct PADDLE_API                                                   \
      Transpose<phi::CPUContext, phi::float8_e5m2, RANK>;                      \
  template struct PADDLE_API Transpose<phi::CPUContext, float, RANK>;          \
  template struct PADDLE_API Transpose<phi::CPUContext, double, RANK>;         \
  template struct PADDLE_API Transpose<phi::CPUContext, int, RANK>;            \
  template struct PADDLE_API Transpose<phi::CPUContext, int64_t, RANK>;        \
  template struct PADDLE_API Transpose<phi::CPUContext, bool, RANK>;           \
  template struct PADDLE_API Transpose<phi::CPUContext, int16_t, RANK>;        \
  template struct PADDLE_API Transpose<phi::CPUContext, uint8_t, RANK>;        \
  template struct PADDLE_API Transpose<phi::CPUContext, uint16_t, RANK>;       \
  template struct PADDLE_API Transpose<phi::CPUContext, uint32_t, RANK>;       \
  template struct PADDLE_API Transpose<phi::CPUContext, uint64_t, RANK>;       \
  template struct PADDLE_API Transpose<phi::CPUContext, int8_t, RANK>;         \
  template struct PADDLE_API Transpose<phi::CPUContext, phi::complex64, RANK>; \
  template struct PADDLE_API Transpose<phi::CPUContext, phi::complex128, RANK>;

DEFINE_CPU_TRANS(1);
DEFINE_CPU_TRANS(2);
DEFINE_CPU_TRANS(3);
DEFINE_CPU_TRANS(4);
DEFINE_CPU_TRANS(5);
DEFINE_CPU_TRANS(6);

#ifdef PADDLE_WITH_XPU
#define DEFINE_XPU_TRANS(RANK)                                          \
  template struct PADDLE_API Transpose<phi::XPUContext, bool, RANK>;    \
  template struct PADDLE_API Transpose<phi::XPUContext, float, RANK>;   \
  template struct PADDLE_API Transpose<phi::XPUContext, int, RANK>;     \
  template struct PADDLE_API Transpose<phi::XPUContext, int64_t, RANK>; \
  template struct PADDLE_API Transpose<phi::XPUContext, phi::complex64, RANK>;

DEFINE_XPU_TRANS(1);
DEFINE_XPU_TRANS(2);
DEFINE_XPU_TRANS(3);
DEFINE_XPU_TRANS(4);
DEFINE_XPU_TRANS(5);
DEFINE_XPU_TRANS(6);
#endif  // PADDLE_WITH_XPU

template <typename DeviceContext, typename T>
void TransposeNormal<DeviceContext, T>::operator()(
    const DeviceContext& dev_ctx UNUSED,
    const phi::DenseTensor& in,
    phi::DenseTensor* out,
    const std::vector<int>& axis) {
  const int rank = static_cast<const int>(axis.size());
  auto in_stride = common::stride(in.dims());
  auto out_stride = common::stride(out->dims());
  const T* in_ptr = in.data<T>();
  T* out_ptr = out->data<T>();

  auto transpose_helper = [&](int64_t beg, int64_t end) {
    for (int64_t out_idx = beg; out_idx < end; ++out_idx) {
      int64_t in_idx = 0;
      int64_t tmp_idx = out_idx;
      // calculate the input index
      for (int i = 0; i < rank; ++i) {
        const int64_t coordinate = tmp_idx / out_stride[i];
        tmp_idx -= coordinate * out_stride[i];
        in_idx += coordinate * in_stride[axis[i]];
      }
      out_ptr[out_idx] = in_ptr[in_idx];
    }
  };
  transpose_helper(0, out->numel());
}

// define transpose normal
#define DEFINE_CPU_TRANS_NORMAL(TYPE) \
  template struct TransposeNormal<phi::CPUContext, TYPE>
DEFINE_CPU_TRANS_NORMAL(phi::float8_e4m3fn);
DEFINE_CPU_TRANS_NORMAL(phi::float8_e5m2);
DEFINE_CPU_TRANS_NORMAL(phi::float16);
DEFINE_CPU_TRANS_NORMAL(phi::bfloat16);
DEFINE_CPU_TRANS_NORMAL(float);
DEFINE_CPU_TRANS_NORMAL(double);
DEFINE_CPU_TRANS_NORMAL(int);
DEFINE_CPU_TRANS_NORMAL(int64_t);
DEFINE_CPU_TRANS_NORMAL(bool);
DEFINE_CPU_TRANS_NORMAL(int16_t);
DEFINE_CPU_TRANS_NORMAL(uint8_t);
DEFINE_CPU_TRANS_NORMAL(uint16_t);
DEFINE_CPU_TRANS_NORMAL(uint32_t);
DEFINE_CPU_TRANS_NORMAL(uint64_t);
DEFINE_CPU_TRANS_NORMAL(int8_t);
DEFINE_CPU_TRANS_NORMAL(phi::complex64);
DEFINE_CPU_TRANS_NORMAL(phi::complex128);

#ifdef PADDLE_WITH_XPU
#define DEFINE_XPU_TRANS_NORMAL(TYPE) \
  template struct TransposeNormal<phi::XPUContext, TYPE>
DEFINE_XPU_TRANS_NORMAL(bool);
DEFINE_XPU_TRANS_NORMAL(float);
DEFINE_XPU_TRANS_NORMAL(int);
DEFINE_XPU_TRANS_NORMAL(int64_t);
DEFINE_XPU_TRANS_NORMAL(phi::complex64);
#endif  // PADDLE_WITH_XPU

struct TensorSetConstantCPU {
  TensorSetConstantCPU(phi::DenseTensor* tensor, float value)
      : tensor_(tensor), value_(value) {}
  template <typename T>
  void apply() const {
    auto cpu = phi::CPUPlace();
    auto* begin = tensor_->mutable_data<T>(cpu);
    std::fill(begin, begin + tensor_->numel(), static_cast<T>(value_));
  }
  phi::DenseTensor* tensor_;
  float value_;
};

template <>
void set_constant_with_place<phi::XPUPlace>(const phi::DeviceContext& dev_ctx,
                                            phi::DenseTensor* tensor,
                                            float value) {
#ifdef PADDLE_WITH_XPU
  phi::VisitDataType(
      tensor->dtype(),
      TensorSetConstantXPU<float>(tensor, value, tensor->place()));
#else
  PADDLE_THROW(common::errors::PreconditionNotMet("Not compiled with XPU!"));
#endif
}

template <>
void set_constant_with_place<phi::IPUPlace>(const phi::DeviceContext& dev_ctx,
                                            phi::DenseTensor* tensor,
                                            float value) {
  PADDLE_THROW(common::errors::Unimplemented("IPUPlace is not supported"));
}

template <>
void set_constant_with_place<phi::CustomPlace>(
    const phi::DeviceContext& dev_ctx, phi::DenseTensor* tensor, float value) {
#ifdef PADDLE_WITH_CUSTOM_DEVICE
  auto kernel_result = phi::KernelFactory::Instance().SelectKernelOrThrowError(
      "full",
      {paddle::experimental::ParseBackend(tensor->place()),
       phi::DataLayout::ALL_LAYOUT,
       paddle::experimental::ParseDataType(tensor->dtype())});
  const auto& kernel = kernel_result.kernel;
  using kernel_signature = void (*)(const phi::DeviceContext&,
                                    const phi::IntArray&,
                                    const phi::Scalar&,
                                    DataType,
                                    phi::DenseTensor*);
  auto* kernel_fn = kernel.GetVariadicKernelFn<kernel_signature>();
  (*kernel_fn)(dev_ctx,
               phi::IntArray(common::vectorize(tensor->dims())),
               phi::Scalar(value),
               tensor->dtype(),
               tensor);
#else
  PADDLE_THROW(common::errors::Unimplemented("CustomPlace is not supported"));
#endif
}

template <>
void set_constant_with_place<phi::CPUPlace>(const phi::DeviceContext& dev_ctx,
                                            phi::DenseTensor* tensor,
                                            float value) {
  phi::VisitDataType(tensor->dtype(), TensorSetConstantCPU(tensor, value));
}

template <>
void set_constant_with_place<phi::GPUPinnedPlace>(
    const phi::DeviceContext& dev_ctx, phi::DenseTensor* tensor, float value) {
  phi::VisitDataType(tensor->dtype(), TensorSetConstantCPU(tensor, value));
}

struct TensorSetConstantWithPlace {
  using argument_type = phi::Place;
  using result_type = void;
  TensorSetConstantWithPlace(const phi::DeviceContext& dev_ctx,
                             phi::DenseTensor* tensor,
                             float value)
      : dev_ctx_(dev_ctx), tensor_(tensor), value_(value) {}

  template <typename Place>
  void operator()(Place place UNUSED) const {
    set_constant_with_place<Place>(dev_ctx_, tensor_, value_);
  }

  const phi::DeviceContext& dev_ctx_;
  phi::DenseTensor* tensor_;
  float value_;
};

void set_constant(const phi::DeviceContext& dev_ctx,
                  phi::DenseTensor* tensor,
                  float value) {
  TensorSetConstantWithPlace func(dev_ctx, tensor, value);
#ifdef PADDLE_WITH_CUSTOM_DEVICE
  if (dev_ctx.GetPlace().GetType() == phi::AllocationType::CUSTOM) {
    func(phi::CustomPlace());
    return;
  }
#endif
#if defined(PADDLE_WITH_CUDA) || defined(PADDLE_WITH_HIP)
  // tensor->place().apply_visitor(func);
  phi::VisitPlace(tensor->place(), func);
#elif defined(PADDLE_WITH_XPU)
  if (dev_ctx.GetPlace().GetType() == phi::AllocationType::XPU) {
    func(phi::XPUPlace());
    return;
  } else {
    func(phi::CPUPlace());
  }
#else
  func(phi::CPUPlace());
#endif
}

template struct ColwiseSum<phi::CPUContext, float>;
template struct ColwiseSum<phi::CPUContext, double>;
template struct ColwiseSum<phi::CPUContext, int>;
template struct ColwiseSum<phi::CPUContext, int64_t>;

template struct RowwiseMean<phi::CPUContext, float>;
template struct RowwiseMean<phi::CPUContext, double>;

template <typename T>
struct RowwiseAdd<phi::CPUContext, T> {
  void operator()(const phi::CPUContext& dev_ctx UNUSED,
                  const phi::DenseTensor& input,
                  const phi::DenseTensor& vector,
                  phi::DenseTensor* output) {
    auto in_dims = input.dims();
    const auto& out_dims = output->dims();
    auto size = input.numel() / in_dims[0];
    PADDLE_ENFORCE_EQ(
        vector.numel(),
        size,
        common::errors::InvalidArgument(
            "The input vector size"
            " should be equal to the size of each row of input tensor."
            " Expected vector size=%d, but received %d",
            size,
            vector.numel()));
    PADDLE_ENFORCE_EQ(out_dims,
                      in_dims,
                      common::errors::InvalidArgument(
                          "The output tensor shape should be same as the input"
                          " tensor shape. Expected output tensor shape: %s,"
                          " but received %s",
                          in_dims.to_str().c_str(),
                          out_dims.to_str().c_str()));

    auto in = phi::EigenMatrix<T>::From(input);
    auto vec = phi::EigenVector<T>::Flatten(vector);
    auto out = phi::EigenMatrix<T>::From(*output);

    for (int64_t i = 0; i < in_dims[0]; ++i) {
      out.chip(i, 0) = in.chip(i, 0) + vec;
    }
  }
};

template struct RowwiseAdd<phi::CPUContext, float>;
template struct RowwiseAdd<phi::CPUContext, double>;

}  // namespace phi::funcs
